(defun counter (v rate start)
    (progn
        (setvar v start)
        (yield (/ 1000000 rate))
        (counter v rate (+ start 1))
))

; Start lots of threads where each thread has
; 20 symbols of stack.
(spawn 20 counter 'cnt01 10 0)
(spawn 20 counter 'cnt02 20 0)
(spawn 20 counter 'cnt03 30 0)
(spawn 20 counter 'cnt04 40 0)
(spawn 20 counter 'cnt05 50 0)
(spawn 20 counter 'cnt06 60 0)
(spawn 20 counter 'cnt07 70 0)
(spawn 20 counter 'cnt08 80 0)
(spawn 20 counter 'cnt09 90 0)
(spawn 20 counter 'cnt10 100 0)
(spawn 20 counter 'cnt11 110 0)
(spawn 20 counter 'cnt12 120 0)
(spawn 20 counter 'cnt13 130 0)
(spawn 20 counter 'cnt14 140 0)
(spawn 20 counter 'cnt15 150 0)
(spawn 20 counter 'cnt16 160 0)
(spawn 20 counter 'cnt17 170 0)
(spawn 20 counter 'cnt18 180 0)
(spawn 20 counter 'cnt19 190 0)
(spawn 20 counter 'cnt20 200 0)
(spawn 20 counter 'cnt21 210 0)
(spawn 20 counter 'cnt22 220 0)
(spawn 20 counter 'cnt23 230 0)
(spawn 20 counter 'cnt24 240 0)
(spawn 20 counter 'cnt25 250 0)
